home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / lifemake.cpt / LifeMaker Demo.rsrc / LIF2_5716_Parity < prev    next >
Encoding:
Text File  |  1991-07-16  |  197 b   |  7 lines
  1. RULE Parity
  2.    VAR new
  3. BEGIN
  4.    new := center[0] XOR north[0] XOR NE[0] XOR NW[0] XOR south[0] XOR east[0] XOR west[0] XOR SW[0] XOR SE[0]
  5.    IF center[0] THEN new := new + 2 END
  6.    RETURN new 
  7. END